home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1997 May & June
/
Amiga-CD 1997 #5-6.iso
/
demos&programme
/
ezpager
/
steuerung
< prev
next >
Wrap
AmigaDOS Script File
|
1992-09-17
|
2KB
|
111 lines
.key param
.bra [
.ket ]
. Skript für Verwaltungsaufgaben
. © MagnaMedia Verlag AG, AMIGA-Magazin
failat >nil: 21
if "[param]" EQ "info"
set vinfo 1
endif
if "[param]" EQ "copy"
set vcopy 1
endif
if "[param]" EQ "start"
set vassign 1
set vstart 1
set vunassign 1
endif
if "[param]" EQ "install"
set vinstall 1
endif
set binfo 1
set bcopy 1
set bstart 1
set binstall 1
echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
set nummer 0
if $binfo EQ 1
echo >>t:tmpsteuerung " Info" NOLINE
set nummer `eval $nummer + 1`
set ninfo $nummer
endif
if $bcopy EQ 1
echo >>t:tmpsteuerung " Kopieren" NOLINE
set nummer `eval $nummer + 1`
set ncopy $nummer
endif
if $bstart EQ 1
echo >>t:tmpsteuerung " Start" NOLINE
set nummer `eval $nummer + 1`
set nstart $nummer
endif
if $binstall EQ 1
echo >>t:tmpsteuerung " Installieren" NOLINE
set nummer `eval $nummer + 1`
set ninstall $nummer
endif
if "[param]" EQ ""
echo >>t:tmpsteuerung " Ende" NOLINE
execute >nil: t:tmpsteuerung
delete >nil: t:tmpsteuerung
set reqerg[$$] `getenv env:AmigaCD/req20erg`
if $reqerg[$$] EQ 0
skip Ende
endif
endif
if $reqerg[$$] EQ $ninfo
set vinfo 1
endif
if $reqerg[$$] EQ $ncopy
set vcopy 1
endif
if $reqerg[$$] EQ $nstart
set vassign 1
set vstart 1
set vunassign 1
endif
if $reqerg[$$] EQ $ninstall
set vinstall 1
endif
endif
if $vinfo EQ 1
;>>>>>>>> Hier Infotext eintragen
:c/Metatool :Demos&Programme/EZPager/DemoReadMe.guide FT=GUIDE
endif
if $vstart EQ 1
;>>>>>>>> Hier steht das Startprogramm
cd :Demos&Programme/EZPager/
:Demos&Programme/EZPager/EZPager
endif
if $vcopy EQ 1
execute :c/Verzeichniskopieren ":Demos&Programme/EZPager/" "EZPager" 497664
endif
if $vinstall EQ 1
;>>>>>>>> Hier Install-Skript eintragen
assign l: :l add
cd >nil: :Demos&Programme/EZPager/
:c/WBstarter >nil: :Demos&Programme/EZPager/install-EZPager
assign l: :l remove
skip Ende
endif
unset binfo
unset vinfo
unset ninfo
unset bstart
unset vstart
unset nstart
unset binstall
unset vinstall
unset ninstall
unset bcopy
unset vcopy
unset ncopy
if "[param]" EQ ""
Steuerung
endif
LAB Ende
unsetenv reqerg[$$]